set more off

use forcingvariable, clear

local c .5
su numberheld
forvalues j = 1(1)`r(max)' {
	replace x`j' = (x`j' - `c')
}

*** graph forcing variable ***

preserve
	keep x*
	su x*
	gen index = _n
	reshape i index
	reshape j vote
	reshape xij x
	reshape xi
	reshape long
	replace x = x*100
	#delimit;
	hist x
		,
		lcol(black)
		col(none)
		fintens(50)
		xline(0, lpat(solid) lwid(thick))
		width(2.5)
		start(-50) 
		xline(0)
		plotregion(style(none))
		xtitle("Tax increase vote share")
		ytitle("Density")
		ylab(, angle(horiz))
		xlab(-50(10)50)
		;
	#delimit cr
	su x
	
restore
gr export "figure A4.eps", replace
